PROC beeper:
	while 1
		iowait
		while peekw($28)
			beep 1,300
		endwh
	endwh
ENDP